* lisp/button.el (forward-button): Use user-error instead.

diff --git a/lisp/button.el b/lisp/button.el
index c39e4f97c13fd96df3fe51d28d5c4543581d576f..b04bc283e4052cad18f93689de50edd42150bbff 100644 (file)
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -493,7 +493,7 @@ Returns the button found."
            (unless (button-get button 'skip)
              (setq n (1- n)))))))
     (if (null button)
-       (error (if wrap "No buttons!" "No more buttons"))
+       (user-error (if wrap "No buttons!" "No more buttons"))
       (let ((msg (and display-message (button-get button 'help-echo))))
        (when msg
          (message "%s" msg)))